Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/webmon_1/frmmainw.frm

Text File | 1999-08-09 | 34KB | 1,073 lines

VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "msinet.ocx"
Object = "{24365B29-A3B5-11D1-B8B0-444553540000}#1.0#0"; "Xfxforms.ocx"
Object = "{BB859389-001D-11D1-8E83-00805F3AEC32}#1.0#0"; "Systray.ocx"
Begin VB.Form frmMain
   BackColor       =   &H00FF8080&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   6210
   ClientLeft      =   4320
   ClientTop       =   3150
   ClientWidth     =   9270
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6210
   ScaleWidth      =   9270
   ShowInTaskbar   =   0   'False
   Begin VB.Timer tmrHide
      Enabled         =   0   'False
      Interval        =   2
      Left            =   4080
      Top             =   2880
   End
   Begin VB.Timer tmrScroll
      Interval        =   50
      Left            =   7560
      Top             =   360
   End
   Begin VB.Timer tmrUpdater
      Interval        =   1000
      Left            =   4200
      Top             =   1680
   End
   Begin VB.TextBox txtPingThis
      Height          =   285
      Left            =   5760
      TabIndex        =   26
      Top             =   5520
      Width           =   1575
   End
   Begin InetCtlsObjects.Inet inetWeb
      Left            =   2400
      Top             =   2040
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   327681
   End
   Begin VB.Timer tmrAlert
      Enabled         =   0   'False
      Index           =   2
      Interval        =   1000
      Left            =   3360
      Top             =   1200
   End
   Begin VB.Timer tmrAlert
      Enabled         =   0   'False
      Index           =   0
      Interval        =   10000
      Left            =   2400
      Top             =   1200
   End
   Begin SysTrayCtl.cSysTray cSysTray1
      Left            =   2880
      Top             =   2040
      _ExtentX        =   900
      _ExtentY        =   900
      InTray          =   -1  'True
      TrayIcon        =   "frmMainWeb.frx":0000
      TrayTip         =   ""
   End
   Begin VB.Timer tmrAlert
      Enabled         =   0   'False
      Index           =   1
      Interval        =   1000
      Left            =   2880
      Top             =   1200
   End
   Begin VB.Timer tmrMon
      Interval        =   50000
      Left            =   3840
      Top             =   1200
   End
   Begin xfxFormShaper.FormShaper FormShaper1
      Left            =   9240
      Top             =   5160
      _ExtentX        =   1852
      _ExtentY        =   1296
   End
   Begin VB.Line Line20
      BorderColor     =   &H0000FF00&
      X1              =   240
      X2              =   3720
      Y1              =   5640
      Y2              =   5640
   End
   Begin VB.Label Label13
      BackColor       =   &H00000000&
      Height          =   255
      Left            =   120
      TabIndex        =   35
      Top             =   5640
      Width           =   3735
   End
   Begin VB.Line Line19
      BorderColor     =   &H0000FF00&
      X1              =   240
      X2              =   3720
      Y1              =   5160
      Y2              =   5160
   End
   Begin VB.Line Line18
      BorderColor     =   &H00FF00FF&
      X1              =   240
      X2              =   3720
      Y1              =   4920
      Y2              =   4920
   End
   Begin VB.Label lblInfo
      BackColor       =   &H00000000&
      Height          =   255
      Left            =   120
      TabIndex        =   34
      Top             =   4920
      Width           =   3735
   End
   Begin VB.Line Line17
      BorderColor     =   &H0000FF00&
      X1              =   240
      X2              =   240
      Y1              =   5160
      Y2              =   5640
   End
   Begin VB.Line Line16
      BorderColor     =   &H0000FF00&
      X1              =   3720
      X2              =   3720
      Y1              =   5160
      Y2              =   5640
   End
   Begin VB.Line Line15
      BorderColor     =   &H0000FF00&
      X1              =   1320
      X2              =   1320
      Y1              =   5160
      Y2              =   5640
   End
   Begin VB.Line Line14
      BorderColor     =   &H0000FF00&
      X1              =   360
      X2              =   3840
      Y1              =   5640
      Y2              =   5640
   End
   Begin VB.Line Line13
      BorderColor     =   &H0000FF00&
      X1              =   240
      X2              =   3720
      Y1              =   5400
      Y2              =   5400
   End
   Begin VB.Line Line12
      BorderColor     =   &H0000FF00&
      X1              =   240
      X2              =   3720
      Y1              =   5160
      Y2              =   5160
   End
   Begin VB.Label Label10
      BackColor       =   &H00000000&
      Caption         =   "    Next Scan"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   33
      Top             =   5400
      Width           =   1335
   End
   Begin VB.Label lblNextcheck
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   1440
      TabIndex        =   32
      Top             =   5400
      Width           =   2415
   End
   Begin VB.Line Line11
      BorderColor     =   &H00FF00FF&
      X1              =   240
      X2              =   3720
      Y1              =   4920
      Y2              =   4920
   End
   Begin VB.Label lblCurrentTime
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   1440
      TabIndex        =   31
      Top             =   5160
      Width           =   2415
   End
   Begin VB.Label Label1
      BackColor       =   &H00000000&
      Caption         =   "    Current Time"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   30
      Top             =   5160
      Width           =   1335
   End
   Begin VB.Line Line10
      BorderColor     =   &H00FF00FF&
      X1              =   240
      X2              =   3720
      Y1              =   4920
      Y2              =   4920
   End
   Begin VB.Label lblScroll
      BackStyle       =   0  'Transparent
      Caption         =   "WebMon WebServer Service Monitor"
      BeginProperty Font
         Name            =   "Comic Sans MS"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   -6120
      TabIndex        =   29
      Top             =   240
      Width           =   6375
   End
   Begin VB.Shape Shape5
      Height          =   855
      Left            =   0
      Shape           =   4  'Rounded Rectangle
      Top             =   120
      Width           =   9255
   End
   Begin VB.Line Line9
      BorderColor     =   &H00FF00FF&
      X1              =   3720
      X2              =   3720
      Y1              =   3720
      Y2              =   4920
   End
   Begin VB.Line Line8
      BorderColor     =   &H00FF00FF&
      X1              =   240
      X2              =   240
      Y1              =   3720
      Y2              =   4920
   End
   Begin VB.Line Line7
      BorderColor     =   &H00FF00FF&
      X1              =   240
      X2              =   3720
      Y1              =   3720
      Y2              =   3720
   End
   Begin VB.Line Line6
      BorderColor     =   &H00FF00FF&
      X1              =   240
      X2              =   3720
      Y1              =   4920
      Y2              =   4920
   End
   Begin VB.Li